home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / MANAGE.PRG < prev    next >
Encoding:
Text File  |  1986-09-03  |  10.5 KB  |  285 lines
  1. * DATE 09/25/84  18:16
  2. * MANAGE.PRG
  3. * NOTE - this program is written for dBASEII version 2.4. You can adjust
  4. * it for 2.3 by taking out the "TEXT" commands and making them "@ nn,nn SAY"
  5. * and/or eliminating them. Adjustment to dBASE 3 is easy, or we will try to
  6. * provide you with a copy if you supply 2 5" disks and postage. The key changes
  7. * for you to make in dBASE 3 is the drive poke and memory variable areas.
  8. * It will run under CP/M 80, CP/M 86 and MSDOS. Just change the
  9. * name of manage.prg to manage.cmd to run under CP/M 80.
  10. CLEAR
  11. * The program is self initializing and documented throughout with help menus.
  12. * You must, however, first read and agree to the licensing agreement in this
  13. * file. Otherwise the program will destroy itself.
  14. *
  15. * This is a highly complicated program and your help in both clearing
  16. * up the bugs and making suggestions will be appreciated. My thanks to the
  17. * many people who helped test and revise this program - and especially to
  18. * Lee Hillard for some great code and for his pretty print and dBASE syntax
  19. * checker program. Lee is at Hilco Software, 304 N. 17th St., Mt. Vernon
  20. * WA 98273. (206) 428-0475. I might add that the coded portion of the program
  21. * was done using RECODE by Hilco. However, there is no way that we could
  22. * fully test this program without extensive field work.  Most of the changes
  23. * from this point on should be relatively simple - so if you are using the
  24. * program, please drop me a note.  We will try to let you know of changes
  25. * as they develop, either via a note or a new SIG/M release. If you find a
  26. * bug or a requirement for the program, please let us know.
  27. *
  28. * Please contact:
  29. *                   Stephen M. Leon
  30. *                   200 Winston Drive
  31. *                   Cliffside Park, NJ 07010
  32. *                   (201) 886-1658
  33. *                         or
  34. *                   Department of Law
  35. *                   2 World Trade Center
  36. *                   New York, NY 10047
  37. *                   (212) 488-7677
  38. *******************************************************************************
  39. *                                                                             *
  40. *                    N O T I C E                                              *
  41. *                                                                             *
  42. * Copyright 1984 by STEPHEN M.LEON.  Non-commercial use or distribution       *
  43. * of the program is authorized only if this notice is retained together with  *
  44. * the text relating to acceptance of the terms of this notice, and the person *
  45. * or persons using the program or benefiting therefrom assume all direct or   *
  46. * indirect risks of such use and agree to indemnify the author and the not-   *
  47. * for-profit computer clubs distributing this program, from any direct or     *
  48. * or indirect expenses incurred by them as a result of their use thereof.     *
  49. * Expenses shall include reasonable counsel fees including reasonable fees    *
  50. * of the author in his capacity as an attorney for services on a reasonable   *
  51. * billing time basis rendered to himself in his capacity as the holder of     *
  52. * the copyright.  Any use of this program constitutes an agreement to the     *
  53. * conditions of this license.  Any other use or distribution is unauthorized  *
  54. * and prohibited  without the express written consent of the author.          *
  55. *                                                                             *
  56. * This program is distributed free (for a nominal media charge) by SIG/M      *
  57. * Special Interest Group/Microcomputers, Box 97, Iselin, NJ 08830.            *
  58. * SIG/M is a not-for-profit undertaking of the Amateur Computer Group of New  *
  59. * Jersey and the New York Amateur Computer Club. This program is also made    *
  60. * available for PC users via PC/BLUE SOFTWARE, also a not-for profit under-   *
  61. * taking of the New Jersey and New York clubs. Permission is granted to any   *
  62. * other not-for-profit group to include this program in their library so long *
  63. * as this notice is retained and the conditions set forth herein are complied *
  64. * with.
  65. *******************************************************************************
  66. CLEA
  67. RELE ALL
  68. RESE
  69. * initializing program of multiple database
  70. SET TALK OFF
  71. IF .NOT. file ("MANAGE.DAT")
  72.  DO INIT.SPM
  73. ENDI .NOT. file
  74. REST from manage.dat additive
  75. IF escap = 'N'
  76.  SET ESCAPE OFF
  77. ENDI excap = 'Y'
  78. IF bells = 'N'
  79.  SET BELL OFF
  80. ENDI bells
  81. IF bright = 'I'
  82.  SET INTENSITY OFF
  83. ENDI brght = 'I'
  84. IF PASS = 'Y'
  85.  ERAS
  86.  @ 12,10 SAY 'PLEASE ENTER THE PASSWORD SLOWLY ........'
  87.  SET EXACT ON
  88.  SET COLON OFF
  89.  STOR '12345678' TO passt
  90.  STOR ' ' TO passt1
  91.  STOR ' ' TO one
  92.  STOR ' ' to one1
  93.  STOR 0 to count
  94.  DO WHIL count < 8
  95.   SET CONSOLE OFF
  96.   @ 12,50 SAY passt1
  97.   WAIT TO one1
  98.   @ 12,50 ACCEPT one1
  99.   SET CONSOLE ON
  100.   STOR TRIM(one) + one1 TO one
  101.   STOR count + 1 TO count
  102.   STOR $(passt,1,count) TO passt1
  103.   @ 12,50 SAY passt1
  104.   SET CONSOLE OFF
  105.  ENDD
  106.  SET CONSOLE ON
  107.  STOR $(one,2,9) TO passt
  108.  IF TRIM(passt) <> TRIM(passp)
  109.   ERAS
  110.   @ 14,10 SAY "U N A U T H O R I Z E D       A C C E S S  "
  111.   @ 17,10
  112.   SET CONSOLE OFF
  113.   QUIT
  114.  ENDI passt
  115.  SET EXACT OFF
  116.  SET COLON ON
  117. ENDI pass
  118. ERAS
  119. TEXT
  120.  
  121.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  122.  *                                                                           *
  123.  *                 AMATEUR COMPUTER GROUP OF NEW JERSEY                      *
  124.  *                                                                           *
  125.  *                                                                           *
  126.  *                                                                           *
  127.  *                                                                           *
  128.  *                                                                           *
  129.  *                                                                           *
  130.  *                                                                           *
  131.  *                                                                           *
  132.  *                                                                           *
  133.  *                                                                           *
  134.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  135.           
  136.  
  137.  
  138.  
  139.  
  140.  
  141. ENDT
  142. @ 6,18 SAY "SIG/M  P R O P E R T Y  M A N A G E R"
  143. STOR 55 TO length
  144. STOR 18 TO  times
  145. DO WHIL times < length
  146.  @ 7,times SAY '_'
  147.  STOR times + 1 TO times
  148.  LOOP
  149. ENDD
  150. TEXT
  151.  *                                                                           *
  152.  *                   A dBASEII DATA MANAGEMENT PROGRAM                       *
  153.  *                        FOR TENANTED REAL ESTATE                           *
  154.  *                             by Stephen M. Leon                            *
  155.  *                                                                           *
  156.  *                                        Vers 1.0   Oct 1984 (c) 1984       *
  157.  *                                                                           *
  158.  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165. ENDT
  166. RELE times, length
  167. STOR 'Y' TO goahead
  168. @ 18,07 SAY "ARE YOU AGREEABLE TO THE TERMS OF THE COPYRIGHT LICENSING AGREEMENT"
  169. @ 19,07 SAY "AS SET FORTH IN THE FILE 'MANAGE.PRG' OR 'MANAGE.CMD' ? "
  170. @ 19,65 GET goahead PICTURE '!'
  171. READ
  172. DO WHIL @(goahead, 'YN') = 0
  173.  @ 19,65 GET goahead PICTURE '!'
  174.  READ
  175. ENDD WHILE goahead
  176. IF goahead = 'N'
  177.  @ 18,00
  178.  @ 19,00
  179.  @ 18,07 SAY "HAVE YOU READ THE TERMS IN THE FILE 'MANAGE.PRG' OR 'MANAGE.CMD' ?"
  180.  @ 18,72 GET goahead PICTURE '!'
  181.  READ
  182.  DO WHIL @(goahead, 'YN') = 0
  183.   @ 18,72 GET goahead PICTURE '!'
  184.   READ
  185.  ENDD while @(goahead)
  186.  IF goahead = 'N'
  187.   QUIT
  188.  ELSE
  189.   STOR 'N' TO goahead
  190.   @ 18,00
  191.   @ 19,00
  192.   @ 18,02 SAY "DO YOU UNDERSTAND THAT WITHOUT THIS AGREEMENT I MUST ERASE THE PROGRAM"
  193.   @ 18,74 GET goahead PICTURE '!'
  194.   READ
  195.   DO WHIL @(goahead, 'YN') = 0
  196.    @ 18,74 GET goahead PICTURE '!'
  197.    READ
  198.   ENDD while @(goahead)
  199.   IF goahead = 'Y'
  200.    SET CONSOLE OFF
  201.    DO menu.bld
  202.    QUIT
  203.   ELSE
  204.    QUIT
  205.   ENDI goahead = 'Y'
  206.  ENDI goahead = 'N'
  207. ELSE
  208.  @ 18,00
  209.  @ 19,00
  210. ENDI goahead
  211. IF C = 'Y'
  212.  STOR 41984 TO adr
  213. *in cp/m 80 there is a jmp at location 0 & 5
  214.  IF (PEEK(0)=195 .AND. PEEK(5)=195)
  215. *use 8080 code
  216.   POKE adr ,35,17,37,164,14,6,6,2,26,19,198,16,211,90,254,21,219,91,194,23,164,214,8,198,48,119,35,5,194,8,164,35,13,194,6,164,201,10,9,8,7,12,11,5,4,3,2,1,0
  217.  ELSE
  218. *use 8086 code
  219.   POKE adr ,67,190,38,164,177,6,181,2,138,4,70,4,16,230,90,60,21,228,91,117,2,44,8,4,48,136,7,67,254,205,117,232,67,254,201,117,225,195,10,9,8,7,12,11,5,4,3,2,1,0
  220.  ENDI (PEEK)
  221.  SET CALL TO adr
  222.  STOR '  /  /  ,  :  :  ' TO mem:var
  223.  CALL mem:var
  224.  STOR $(mem:var,1,8) TO mdate
  225.  STOR $(mem:var,10,8) TO mtime
  226.  SET DATE  TO &mdate
  227.  @ 17,10 SAY 'Today is ' + mdate
  228.  @ 17,32 SAY '....and the time is  ' + mtime
  229. * Regular date program
  230. ENDI C='Y'
  231. IF I = 'N'
  232.  STOR '                                                  ' TO BLNKS
  233.  IF DATE() = '00/00/00'
  234.   STOR F   TO OK
  235.  ELSE
  236.   STOR T   TO OK
  237.   STOR 0   TO MM
  238.  ENDI
  239.  DO WHIL .NOT. OK
  240.   STOR $(BLNKS,1,8)            TO DATE:VAR
  241.   STOR $(BLNKS,1,42)       TO ERRX
  242.   @ 18,15 SAY 'Enter Date as MM/DD/YY '
  243.   @ 18,43 GET DATE:VAR  picture '##/##/##'
  244.   READ
  245.   STOR val($(DATE:VAR,1,2))    TO MM
  246.   STOR val($(DATE:VAR,4,2))    TO DD
  247.   STOR val($(DATE:VAR,7,2))    TO YY
  248.   DO CASE
  249.   CASE MM<1 .or. MM>12 .or. DD<1 .or. DD>31 .or. YY<80
  250.    STOR '       Invalid Date - Reenter'   to ERRX
  251.   CASE MM=4 .or. MM=6 .or. MM=9 .or. MM=11
  252.    IF DD>30
  253.     STOR 'Thirty Days hath September, etc. - Reenter'   to ERRX
  254.    ELSE
  255.     STOR T TO OK
  256.    ENDI dd
  257.   CASE MM=2 .and. DD>28 .and. ((1900 + YY)/4)<>int(((1900 + YY)/4))
  258.    STOR '     Not a leap year - Try Again'   TO ERRX
  259.   CASE MM=2 .and. DD>29
  260.    STOR 'February has a Maximum of 29 Days - Reenter' TO ERRX
  261.   OTHE
  262.    @ 20,00
  263.    STOR T   TO OK
  264.    LOOP
  265.   ENDC
  266.   @ 20,00
  267.   @ 20,15 SAY ERRX
  268.  ENDD (.not. OK)
  269.  IF MM>0
  270.   RELE ERRX, OK, MM, DD, YY
  271.   SET date TO &DATE:VAR
  272.   CLEA GETS
  273.  ENDI mm
  274. ENDI I = 'N'
  275. * poke drive letter into memory 039 hex
  276. * IF converting to dBASEIII - set up a public memory variable for drive letter
  277. * You will also have to change the PEEK in each module.
  278. POKE 063,(64+@(dr,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'))
  279. RELE ALL
  280. STOR 0 TO box
  281. DO dbox.spm
  282. 10,9,8,7,12,11,5,4,3,2,1,0
  283.  ELSE
  284. *use 8086 code
  285.   POKE adr ,67,190,38,164,177,6,181,2,138,4,70,4,16,230,90,60,21,228,91,117,2